From 94d3ff15d554438b9f0d1dd7dcf42017d66f0111 Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Mon, 16 Feb 2009 01:38:42 +0100 Subject: [PATCH] * calendar/todos.el (todos-list-categories): Fix typos. (todos-show): Ensure file is in todos-mode. --- lisp/ChangeLog | 5 +++++ lisp/calendar/todos.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c67e2f9822..650849e80f4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-09-12 Stephen Berman + + * calendar/todos.el (todos-list-categories): Fix typos. + (todos-show): Ensure file is in todos-mode. + 2012-09-12 Stephen Berman * calendar/todos.el (todos-header): Remove defvar. diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el index 9e0cf90a048..1689c80d820 100644 --- a/lisp/calendar/todos.el +++ b/lisp/calendar/todos.el @@ -800,7 +800,7 @@ Number of entries for each category is given by `todos-print-priorities'." (widen) (goto-char (point-max)) (while (re-search-backward - (concat "^" (regexp-quote (concat todo-prefix todo-category-beg)) + (concat "^" (regexp-quote (concat todos-prefix todos-category-beg)) "\\(.*\\)\n") (point-min) t) (push (match-string-no-properties 1) categories))))) @@ -950,6 +950,7 @@ Number of entries for each category is given by `todos-print-priorities'." (equal (expand-file-name todos-file-do) bufname))) (find-file todos-file-do) (todos-initial-setup)) + (unless (eq major-mode 'todos-mode) (todos-mode)) (unless todos-categories (setq todos-categories (todos-list-categories))) ;; (beginning-of-line) -- 2.30.2